home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / MUI / MCC_TimeText / Developer / Cluster / txt / MCCTimeText.def next >
Text File  |  1997-07-27  |  1KB  |  55 lines
  1. |##########|
  2. |#MAGIC   #|EMKAIKCG
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x-xxxx---x-----------------
  6. |#USERSW  #|--x-----------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE MCCTimeText;
  11.  
  12. (*
  13. **
  14. ** Copyright © 1997 Kai Hofmann. All rights reserved.
  15. ** Registered MUI custom class!
  16. **
  17. ** $VER: MCCTimeText.def 12.0 (27.07.97)
  18. **
  19. ** Cluster interface model by Henning Thielemann <iakd0@mlucom.urz.uni-halle.de>
  20. *)
  21.  
  22. FROM SYSTEM    IMPORT SysStringPtr;
  23. FROM Intuition IMPORT MsgRoot;
  24. FROM Utility   IMPORT HookPtr;
  25. FROM MuiO      IMPORT CBOOLEAN, AreaRec, MuiTags, MethodID;
  26.  
  27.  
  28. CONST
  29.   cTimeText        = "TimeText.mcc"
  30.  
  31. TYPE
  32.   TimeTextRec    = RECORD OF AreaRec END;
  33.   TimeTextObject = POINTER TO TimeTextRec;
  34.  
  35.   TimeTextTags = TAGS OF MuiTags
  36.     timetextTimeFormat    = $81EE0098 : SysStringPtr;
  37.   END;
  38.  
  39.   TimeTextTagAPtr = POINTER TO ARRAY OF TimeTextTags;
  40.  
  41.  
  42. PROCEDURE MakeTimeTextObjectA(tags : TimeTextTagAPtr) : TimeTextObject;
  43. PROCEDURE MakeTimeTextObject(tags : LIST OF TimeTextTags) : TimeTextObject;
  44.  
  45. GROUP
  46.   Essential =
  47.     cTimeText,
  48.     TimeTextRec,            TimeTextObject,
  49.     TimeTextTags,        TimeTextTagAPtr,
  50.     MakeTimeTextObject,    MakeTimeTextObjectA;
  51.  
  52.   All = Essential;
  53.  
  54. END MCCTimeText.
  55.